home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEV / I-Z / ResCopy.cpt / ResCopy XCMD / card_8104.txt < prev    next >
Text File  |  1989-02-02  |  13KB  |  595 lines
  1. -- card: 8104 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 6338
  5. -- name: Help 4
  6. ----- HyperTalk script -----
  7. on HideCardFields
  8.   repeat with i = 1 to the number of card fields
  9.     hide card field i
  10.   end repeat
  11. end HideCardFields
  12.  
  13.  
  14.  
  15. -- part 1 (button)
  16. -- low flags: 00
  17. -- high flags: 0000
  18. -- rect: left=14 top=56 right=212 bottom=182
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 0 / 0
  21. -- text alignment: 1
  22. -- font id: 0
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: New Button
  27. ----- HyperTalk script -----
  28. on mouseUp
  29.   HideCardFields
  30.   show card field "List help"
  31.   set the highlight of me to true
  32.   wait until the mouse is "down"
  33.   hide card field "List help"
  34.   set the highlight of me to false
  35. end mouseUp
  36.  
  37.  
  38.  
  39. -- part 17 (button)
  40. -- low flags: 00
  41. -- high flags: 0000
  42. -- rect: left=214 top=54 right=78 bottom=294
  43. -- title width / last selected line: 0
  44. -- icon id / first selected line: 0 / 0
  45. -- text alignment: 1
  46. -- font id: 0
  47. -- text size: 12
  48. -- style flags: 0
  49. -- line height: 16
  50. -- part name: New Button
  51. ----- HyperTalk script -----
  52. on mouseUp
  53.   HideCardFields
  54.   show card field "Copy help"
  55.   set the highlight of me to true
  56.   wait until the mouse is "down"
  57.   hide card field "Copy help"
  58.   set the highlight of me to false
  59. end mouseUp
  60.  
  61.  
  62.  
  63. -- part 20 (field)
  64. -- low flags: 81
  65. -- high flags: 2004
  66. -- rect: left=147 top=94 right=211 bottom=357
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 0 / 0
  69. -- text alignment: 0
  70. -- font id: 0
  71. -- text size: 12
  72. -- style flags: 0
  73. -- line height: 14
  74. -- part name: Copy help
  75. ----- HyperTalk script -----
  76. on mouseup
  77.   set the visible of the target to false
  78. end mouseup
  79.  
  80.  
  81. -- part 12 (field)
  82. -- low flags: 81
  83. -- high flags: 2004
  84. -- rect: left=194 top=243 right=309 bottom=322
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 0
  88. -- font id: 0
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 14
  92. -- part name: Open/Close help
  93. ----- HyperTalk script -----
  94. on mouseup
  95.   set the visible of the target to false
  96. end mouseup
  97.  
  98.  
  99. -- part 44 (button)
  100. -- low flags: 00
  101. -- high flags: 0000
  102. -- rect: left=14 top=214 right=265 bottom=197
  103. -- title width / last selected line: 0
  104. -- icon id / first selected line: 0 / 0
  105. -- text alignment: 1
  106. -- font id: 0
  107. -- text size: 12
  108. -- style flags: 0
  109. -- line height: 16
  110. -- part name: New Button
  111. ----- HyperTalk script -----
  112. on mouseUp
  113.   HideCardFields
  114.   show card field "Name help"
  115.   set the highlight of me to true
  116.   wait until the mouse is "down"
  117.   hide card field "Name help"
  118.   set the highlight of me to false
  119. end mouseUp
  120.  
  121.  
  122.  
  123. -- part 32 (button)
  124. -- low flags: 00
  125. -- high flags: 0000
  126. -- rect: left=235 top=189 right=227 bottom=273
  127. -- title width / last selected line: 0
  128. -- icon id / first selected line: 0 / 0
  129. -- text alignment: 1
  130. -- font id: 0
  131. -- text size: 12
  132. -- style flags: 0
  133. -- line height: 16
  134. -- part name: New Button
  135. ----- HyperTalk script -----
  136. on mouseUp
  137.   set the highlight of me to true
  138.   Play "boing" tempo 300 a
  139.   repeat until the sound is "done"
  140.     set the highlight of me to not highlight of me
  141.   end repeat
  142.   set the highlight of me to false
  143. end mouseUp
  144.  
  145.  
  146.  
  147. -- part 33 (button)
  148. -- low flags: 00
  149. -- high flags: 0000
  150. -- rect: left=214 top=86 right=110 bottom=294
  151. -- title width / last selected line: 0
  152. -- icon id / first selected line: 0 / 0
  153. -- text alignment: 1
  154. -- font id: 0
  155. -- text size: 12
  156. -- style flags: 0
  157. -- line height: 16
  158. -- part name: New Button
  159. ----- HyperTalk script -----
  160. on mouseUp
  161.   HideCardFields
  162.   show card field "Remove help"
  163.   set the highlight of me to true
  164.   wait until the mouse is "down"
  165.   hide card field "Remove help"
  166.   set the highlight of me to false
  167. end mouseUp
  168.  
  169.  
  170.  
  171. -- part 38 (button)
  172. -- low flags: 80
  173. -- high flags: 8003
  174. -- rect: left=16 top=2 right=24 bottom=116
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 0 / 0
  177. -- text alignment: 1
  178. -- font id: 0
  179. -- text size: 12
  180. -- style flags: 0
  181. -- line height: 16
  182. -- part name: tricks
  183. ----- HyperTalk script -----
  184. on mouseUp
  185.   repeat with i = 1 to the number of card fields
  186.  
  187.     if the commandkey is not "down" then
  188.       show card field i
  189.       set the locktext of card field i to false
  190.     else
  191.       hide card field i
  192.       set the locktext of card field i to true
  193.     end if
  194.  
  195.     if the optionkey is "down" then
  196.       set the textHeight of card field i to 14
  197.     end if
  198.  
  199.   end repeat
  200. end mouseUp
  201.  
  202.  
  203.  
  204. -- part 45 (button)
  205. -- low flags: 00
  206. -- high flags: 0000
  207. -- rect: left=310 top=56 right=212 bottom=478
  208. -- title width / last selected line: 0
  209. -- icon id / first selected line: 0 / 0
  210. -- text alignment: 1
  211. -- font id: 0
  212. -- text size: 12
  213. -- style flags: 0
  214. -- line height: 16
  215. -- part name: New Button
  216. ----- HyperTalk script -----
  217. on mouseUp
  218.   HideCardFields
  219.   show card field "List help"
  220.   set the highlight of me to true
  221.   wait until the mouse is "down"
  222.   hide card field "List help"
  223.   set the highlight of me to false
  224. end mouseUp
  225.  
  226.  
  227.  
  228. -- part 46 (button)
  229. -- low flags: 00
  230. -- high flags: 0000
  231. -- rect: left=310 top=214 right=265 bottom=493
  232. -- title width / last selected line: 0
  233. -- icon id / first selected line: 0 / 0
  234. -- text alignment: 1
  235. -- font id: 0
  236. -- text size: 12
  237. -- style flags: 0
  238. -- line height: 16
  239. -- part name: New Button
  240. ----- HyperTalk script -----
  241. on mouseUp
  242.   HideCardFields
  243.   show card field "Name help"
  244.   set the highlight of me to true
  245.   wait until the mouse is "down"
  246.   hide card field "Name help"
  247.   set the highlight of me to false
  248. end mouseUp
  249.  
  250.  
  251.  
  252. -- part 4 (field)
  253. -- low flags: 81
  254. -- high flags: 2004
  255. -- rect: left=142 top=62 right=213 bottom=373
  256. -- title width / last selected line: 0
  257. -- icon id / first selected line: 0 / 0
  258. -- text alignment: 0
  259. -- font id: 0
  260. -- text size: 12
  261. -- style flags: 0
  262. -- line height: 14
  263. -- part name: Name help
  264. ----- HyperTalk script -----
  265. on mouseup
  266.   set the visible of the target to false
  267. end mouseup
  268.  
  269.  
  270. -- part 2 (field)
  271. -- low flags: 81
  272. -- high flags: 2004
  273. -- rect: left=121 top=63 right=245 bottom=390
  274. -- title width / last selected line: 0
  275. -- icon id / first selected line: 0 / 0
  276. -- text alignment: 0
  277. -- font id: 0
  278. -- text size: 12
  279. -- style flags: 0
  280. -- line height: 14
  281. -- part name: List help
  282. ----- HyperTalk script -----
  283. on mouseup
  284.   set the visible of the target to false
  285. end mouseup
  286.  
  287.  
  288. -- part 48 (field)
  289. -- low flags: 81
  290. -- high flags: 2004
  291. -- rect: left=162 top=124 right=224 bottom=352
  292. -- title width / last selected line: 0
  293. -- icon id / first selected line: 0 / 0
  294. -- text alignment: 0
  295. -- font id: 0
  296. -- text size: 12
  297. -- style flags: 0
  298. -- line height: 14
  299. -- part name: remove help
  300. ----- HyperTalk script -----
  301. on mouseup
  302.   set the visible of the target to false
  303. end mouseup
  304.  
  305.  
  306. -- part 49 (button)
  307. -- low flags: 00
  308. -- high flags: 0000
  309. -- rect: left=214 top=118 right=142 bottom=294
  310. -- title width / last selected line: 0
  311. -- icon id / first selected line: 0 / 0
  312. -- text alignment: 1
  313. -- font id: 0
  314. -- text size: 12
  315. -- style flags: 0
  316. -- line height: 16
  317. -- part name: New Button
  318. ----- HyperTalk script -----
  319. on mouseUp
  320.   HideCardFields
  321.   show card field "play help"
  322.   set the highlight of me to true
  323.   wait until the mouse is "down"
  324.   hide card field "play help"
  325.   set the highlight of me to false
  326. end mouseUp
  327.  
  328.  
  329.  
  330. -- part 50 (field)
  331. -- low flags: 81
  332. -- high flags: 2004
  333. -- rect: left=153 top=157 right=259 bottom=358
  334. -- title width / last selected line: 0
  335. -- icon id / first selected line: 0 / 0
  336. -- text alignment: 0
  337. -- font id: 0
  338. -- text size: 12
  339. -- style flags: 0
  340. -- line height: 14
  341. -- part name: play help
  342. ----- HyperTalk script -----
  343. on mouseup
  344.   set the visible of the target to false
  345. end mouseup
  346.  
  347.  
  348. -- part 51 (button)
  349. -- low flags: 00
  350. -- high flags: 0000
  351. -- rect: left=214 top=244 right=268 bottom=294
  352. -- title width / last selected line: 0
  353. -- icon id / first selected line: 0 / 0
  354. -- text alignment: 1
  355. -- font id: 0
  356. -- text size: 12
  357. -- style flags: 0
  358. -- line height: 16
  359. -- part name: New Button
  360. ----- HyperTalk script -----
  361. on mouseUp
  362.   HideCardFields
  363.   show card field "help help"
  364.   set the highlight of me to true
  365.   wait until the mouse is "down"
  366.   hide card field "help help"
  367.   set the highlight of me to false
  368. end mouseUp
  369.  
  370.  
  371.  
  372. -- part 52 (button)
  373. -- low flags: 00
  374. -- high flags: 0000
  375. -- rect: left=214 top=278 right=302 bottom=294
  376. -- title width / last selected line: 0
  377. -- icon id / first selected line: 0 / 0
  378. -- text alignment: 1
  379. -- font id: 0
  380. -- text size: 12
  381. -- style flags: 0
  382. -- line height: 16
  383. -- part name: New Button
  384. ----- HyperTalk script -----
  385. on mouseUp
  386.   HideCardFields
  387.   show card field "quit help"
  388.   set the highlight of me to true
  389.   wait until the mouse is "down"
  390.   hide card field "quit help"
  391.   set the highlight of me to false
  392. end mouseUp
  393.  
  394.  
  395.  
  396. -- part 53 (field)
  397. -- low flags: 81
  398. -- high flags: 2004
  399. -- rect: left=137 top=122 right=238 bottom=364
  400. -- title width / last selected line: 0
  401. -- icon id / first selected line: 0 / 0
  402. -- text alignment: 0
  403. -- font id: 0
  404. -- text size: 12
  405. -- style flags: 0
  406. -- line height: 14
  407. -- part name: help help
  408. ----- HyperTalk script -----
  409. on mouseup
  410.   set the visible of the target to false
  411. end mouseup
  412.  
  413.  
  414. -- part 54 (field)
  415. -- low flags: 81
  416. -- high flags: 2004
  417. -- rect: left=201 top=198 right=276 bottom=304
  418. -- title width / last selected line: 0
  419. -- icon id / first selected line: 0 / 0
  420. -- text alignment: 0
  421. -- font id: 0
  422. -- text size: 12
  423. -- style flags: 0
  424. -- line height: 14
  425. -- part name: quit help
  426. ----- HyperTalk script -----
  427. on mouseup
  428.   set the visible of the target to false
  429. end mouseup
  430.  
  431.  
  432. -- part 55 (button)
  433. -- low flags: 00
  434. -- high flags: 0000
  435. -- rect: left=62 top=278 right=302 bottom=142
  436. -- title width / last selected line: 0
  437. -- icon id / first selected line: 0 / 0
  438. -- text alignment: 1
  439. -- font id: 0
  440. -- text size: 12
  441. -- style flags: 0
  442. -- line height: 16
  443. -- part name: New Button
  444. ----- HyperTalk script -----
  445. on mouseUp
  446.   HideCardFields
  447.   show card field "Open/Close help"
  448.   set the highlight of me to true
  449.   wait until the mouse is "down"
  450.   hide card field "Open/Close help"
  451.   set the highlight of me to false
  452. end mouseUp
  453.  
  454.  
  455.  
  456. -- part 56 (button)
  457. -- low flags: 00
  458. -- high flags: 0000
  459. -- rect: left=358 top=278 right=302 bottom=438
  460. -- title width / last selected line: 0
  461. -- icon id / first selected line: 0 / 0
  462. -- text alignment: 1
  463. -- font id: 0
  464. -- text size: 12
  465. -- style flags: 0
  466. -- line height: 16
  467. -- part name: New Button
  468. ----- HyperTalk script -----
  469. on mouseUp
  470.   HideCardFields
  471.   show card field "Open/Close help"
  472.   set the highlight of me to true
  473.   wait until the mouse is "down"
  474.   hide card field "Open/Close help"
  475.   set the highlight of me to false
  476. end mouseUp
  477.  
  478.  
  479.  
  480. -- part 57 (button)
  481. -- low flags: 00
  482. -- high flags: 0000
  483. -- rect: left=9 top=311 right=339 bottom=505
  484. -- title width / last selected line: 0
  485. -- icon id / first selected line: 0 / 0
  486. -- text alignment: 1
  487. -- font id: 0
  488. -- text size: 12
  489. -- style flags: 0
  490. -- line height: 16
  491. -- part name: New Button
  492. ----- HyperTalk script -----
  493. on mouseUp
  494.   HideCardFields
  495.   show card field "Credit help"
  496.   set the highlight of me to true
  497.   wait until the mouse is "down"
  498.   hide card field "Credit help"
  499.   set the highlight of me to false
  500. end mouseUp
  501.  
  502.  
  503.  
  504. -- part 24 (field)
  505. -- low flags: 81
  506. -- high flags: 2004
  507. -- rect: left=179 top=246 right=306 bottom=330
  508. -- title width / last selected line: 0
  509. -- icon id / first selected line: 0 / 0
  510. -- text alignment: 0
  511. -- font id: 0
  512. -- text size: 12
  513. -- style flags: 0
  514. -- line height: 14
  515. -- part name: Credit help
  516. ----- HyperTalk script -----
  517. on mouseup
  518.   set the visible of the target to false
  519. end mouseup
  520.  
  521.  
  522. -- part 60 (button)
  523. -- low flags: 00
  524. -- high flags: A004
  525. -- rect: left=205 top=314 right=336 bottom=302
  526. -- title width / last selected line: 0
  527. -- icon id / first selected line: 0 / 0
  528. -- text alignment: 1
  529. -- font id: 0
  530. -- text size: 12
  531. -- style flags: 0
  532. -- line height: 16
  533. -- part name: More Help...
  534. ----- HyperTalk script -----
  535. on mouseUp
  536.   visual iris open
  537.   go to card id 5663
  538. end mouseUp
  539.  
  540.  
  541.  
  542.  
  543. -- part contents for card part 2
  544. ----- text -----
  545. Click on one or more resources in a list to operate on them.
  546.  
  547. Use Shift-click or Command-click to select multiple resources.
  548.  
  549. If the resource is an ‚ÄòICON‚Äô, ResCopy will display the icon.
  550.  
  551. If the resource is a sound (‚Äòsnd ‚Äô resource), the ‚ÄúPlay‚Äù button is activated.
  552.  
  553. -- part contents for card part 4
  554. ----- text -----
  555. This area displays the name of the currently-open file, volume name, the free space on the volume, and the number of bytes currently selected.
  556.  
  557. If the file‚Äôs name is followed by ‚Äú (read-only) ‚Äù, you are not allowed to make changes to it.
  558.  
  559.  
  560. -- part contents for card part 12
  561. ----- text -----
  562. Click on these buttons to open or close files.
  563.  
  564.  
  565. -- part contents for card part 20
  566. ----- text -----
  567. Copies selected resources from one stack to another.
  568.  
  569. If there is only one open file, or if one file is read-only, this button is disabled.
  570.  
  571. -- part contents for card part 24
  572. ----- text -----
  573. Displays the credits and version number information.
  574.  
  575. -- part contents for card part 48
  576. ----- text -----
  577. Removes (deletes) the selected resource(s).
  578.  
  579. Hold down the Option key to avoid the warning dialog.
  580.  
  581. -- part contents for card part 50
  582. ----- text -----
  583. Plays the selected sound.
  584.  
  585. If the sound is not a HyperCard-compatible one, ResCopy will ask if you would like to convert it.
  586.  
  587. -- part contents for card part 53
  588. ----- text -----
  589. Displays ResCopy‚Äôs on-line Help dialog.
  590.  
  591. If the Help resources (‚ÄòDLOG‚Äô and ‚ÄòDITL‚Äô resources named ‚ÄúRC Help‚Äù) are not available, this button is disabled
  592.  
  593. -- part contents for card part 54
  594. ----- text -----
  595. Quits from ResCopy and returns to HyperCard.